home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1995 #5 & #6 / Amiga Plus CD - 1995 - No. 5 and 6.iso / pd / serien / purity / nr.37 / useful / rastertest.p < prev    next >
Text File  |  1994-09-17  |  1KB  |  62 lines
  1. { Programm:    Rastertest
  2.   ~~~~~~~~~
  3.   Sprache:     KickPascal2.12/OS2
  4.   ~~~~~~~~
  5.   Sinn:        Raster wie bei RT/EASYReq...
  6.   ~~~~~
  7.   Autor:       PackMAN
  8.   ~~~~~~       c/o Falk Zühlsdorff
  9.                Lindenberg 66
  10.                D-98693 Ilmenau/Thüringen
  11.  
  12.   Copyright:   GIFTWARE,  jeder Nutzer sendet mir ein z.B. eine
  13.   ~~~~~~~~~~              Disk mit guten C / PascalSource zu folgenden
  14.                           Themen: Packeralg. / Graphikdruck /
  15.                                   Printer.device  oder gute neue PD zu... }
  16.  
  17. Program Rastertest;
  18. USES Intuition,Graphics;
  19.  
  20. VAR   Win     : ^Window;
  21.       Msg     : ^IntuiMessage;
  22.       e       : boolean;STATIC;
  23.       RP      : p_RastPort;
  24.       pattern : array[0..1] of word;STATIC;
  25.  
  26. procedure SetAfPt(w:p_RastPort;p:Ptr;n:Integer);
  27. begin
  28.  w^.AreaPtrn:=p;
  29.  w^.AreaPtSz:=n;
  30. end;
  31.  
  32.  
  33. BEGIN
  34.  Win:=Open_Window(200,0,300,100,$0203,_CLOSEWINDOW,
  35.          ACTIVATE+WINDOWDRAG+WINDOWDEPTH+RMBTRAP+WINDOWCLOSE,
  36.          'Rastertest © by PackMAN in `94',Nil,0,0,0,0);
  37.  IF Win=Nil THEN  exit;
  38.  e:=false;
  39.  RP:=Win^.RPort;
  40.  pattern[0]:=$AAAA;
  41.  pattern[1]:=$5555;
  42.  SetAfPt(RP,^pattern,1);
  43.  SetAPen(RP,2);
  44.  SetBPen(RP,0);
  45.  SetDrMd(RP,JAM2);
  46.  RectFill(RP,3,11,294,97);
  47.  SetAfPt(RP,NIL,0);
  48.  SetAPen(RP,0);
  49.  RectFill(RP,12,20,288,75);
  50.  REPEAT
  51.   Msg:=Wait_Port(Win^.UserPort);
  52.   Msg:=Get_Msg(Win^.UserPort);
  53.   Reply_Msg(Msg);
  54.   IF Msg^.Class=_CLOSEWINDOW THEN e:=true;
  55.  UNTIL e;
  56.  Close_Window(Win);
  57. END.
  58.  
  59.  
  60.  
  61.  
  62.